mode_setup;
u#:=(in#/722.909)*15;
define_pixels(u);
designsize:=u#;
for a:=0 upto 255:
beginchar(a,8u#,u#,0);
b:=2; c:=7u;
forever: if 2(a mod b)≥b: fill unitsquare scaled u shifted (c,0); fi
 exitif b=256;
 c:=c-u; b:=b+b; endfor
endchar;
endfor
end